<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>5</cardCount>
<cardID>3029</cardID>
<listID>2429</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>320</width>
<height>240</height>
</cardSize>
<script>on Startupglobal FadeSpeed,FadeRed,FadeGreen,FadeBlue,FadeRatioput 4 into FadeSpeedput 0 into FadeBlueput 0 into FadeRedput 0 into FadeGreenput 75 into FadeRatioplay "one moment"Fade Partialgo to cd id 4014pass StartUpend Startupon openCardSend colorMe to this cardpass openCardend openCardon closeCardlock screenpass closeCardend closeCardon colorMeAddColor colorCard,dissolve,30end colorMeon openStackglobal lastring,ringstoday,ringstotalput the ticks into lastringvocalise "prepare to speak","Ralph"AddColor installdomenu "hide others"wait until the sound is donewait 1 secondplay splashwait 2 secondsset the visible of cd fld id 9 of cd id 3029 to falseput the date & " at " & the time into cd fld id 11 of cd id 3029put word 4 of cd fld id 12 of cd id 3029 into ringstotalput 0 into ringstodayput ringstoday & " this session, "& ringstotal &" total." into cd fld id 12 of cd id 3029go to cd id 3029fade output "Starting Up..." into cd fld id 4 of cd id 3029wait until the sound is donevocalise "speak","Preparing Modem"FireTheFuckerUpwait until the sound is donevocalise "speak","The uranium p 36 space modulator is ready to mother fuckin' rip shit and kill it!"pass openStackend OpenStackon FireTheFuckerUpget CommConnect ("prepare for use","serial tool")if it ≠ "" then vocalise "speak",itget CommConnect ("change connection settings",cd fld id 1 of last cd)if it ≠ "" then vocalise "speak",itget CommConnect ("open connection")if it ≠ "" then vocalise "speak",itget CommConnect ("send","at&f1"&return)if it ≠ "" then vocalise "speak",itwait 1 secondget CommConnect ("send","at#CID=1"&return)wait 1 secondif it ≠ "" then vocalise "speak",itget commconnect ("receive")end FireTheFuckerUpon closeStackvocalise "speak","Shutting down."vocalise "no more to speak"get CommConnect ("close connection")get CommConnect ("end of use")play "fart"set the visible of cd fld id 9 of cd id 3029 to truego to cd id 4014AddColor removepass closeStackend closeStackon addNameglobal lastname,lastnmbr,toaddput lastname into toaddput " " & the time & " " & the date & " " & lastnmbr after toaddput the number of chars of toadd into totcharput "(" before char (totchar - 9) of toaddput ") " after char (totchar - 6) of toaddput "-" after char (totchar - 1) of toaddif the first line of cd fld id 4 of cd id 3794 is "No History" thenput toadd into cd fld id 4 of cd id 3794put toadd into cd fld id 8 of cd id 3029elseput Return after cd fld id 4 of cd id 3794put toadd after cd fld id 4 of cd id 3794put toadd into cd fld id 8 of cd id 3029end ifend addNameon doRingglobal lastring,toadd,lastnameput lastname into cd fld id 4 of cd id 3029put the ticks into lastringwait until the sound is donevocalise "speak",lastname & " is calling."end doRingon ConvertCase-- Since HyperCard™ is retarded, we have to fix it.global lastnameput 1 into curwordrepeat until curword ≥ the number of chars of lastnameput curword + 1 into curwordif char curword of lastname = "A" then put "a" into char curword of lastnameif char curword of lastname = "B" then put "b" into char curword of lastnameif char curword of lastname = "C" then put "c" into char curword of lastnameif char curword of lastname = "D" then put "d" into char curword of lastnameif char curword of lastname = "E" then put "e" into char curword of lastnameif char curword of lastname = "F" then put "f" into char curword of lastnameif char curword of lastname = "G" then put "g" into char curword of lastnameif char curword of lastname = "H" then put "h" into char curword of lastnameif char curword of lastname = "I" then put "i" into char curword of lastnameif char curword of lastname = "J" then put "j" into char curword of lastnameif char curword of lastname = "K" then put "k" into char curword of lastnameif char curword of lastname = "L" then put "l" into char curword of lastnameif char curword of lastname = "M" then put "m" into char curword of lastnameif char curword of lastname = "N" then put "n" into char curword of lastnameif char curword of lastname = "O" then put "o" into char curword of lastnameif char curword of lastname = "P" then put "p" into char curword of lastnameif char curword of lastname = "Q" then put "q" into char curword of lastnameif char curword of lastname = "R" then put "r" into char curword of lastnameif char curword of lastname = "S" then put "s" into char curword of lastnameif char curword of lastname = "T" then put "t" into char curword of lastnameif char curword of lastname = "U" then put "u" into char curword of lastnameif char curword of lastname = "V" then put "v" into char curword of lastnameif char curword of lastname = "W" then put "w" into char curword of lastnameif char curword of lastname = "X" then put "x" into char curword of lastnameif char curword of lastname = "Y" then put "y" into char curword of lastnameif char curword of lastname = "Z" then put "z" into char curword of lastnameif char curword of lastname = " " then put curword + 1 into curwordend repeatput lastname into lastnameend ConvertCase</script>
